home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9108a.d64 / demo 1.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  39 lines
  1. 10 SYS36864
  2. 20 .OPT OO
  3. 30 *= $C000
  4. 40 ; DIESES PROGRAMM DEFINIERT EINEN NEUEN
  5. 42 ; BASIC-BEFEHL NAMENS !S. DIESER BEFEHL
  6. 44 ; ERZEUGT EINEN TON.
  7. 46 ; NIKOLAUS HEUSLER, MUENCHEN, 3.91
  8. 100 IBAS =776;VEKTOR FUER BASICBEFEHL
  9. 110 CHRGET =115;NAECHSTES ZEICHEN HOLEN
  10. 120 INTER =$A7AE;INTERPRETERSCHLEIFE
  11. 130 OLDBAS =$A7E7;ALTEN BASICBEFEHL BEARBEITEN
  12. 150 SYNTAX =$AF08;SYNTAX ERROR
  13. 160 SID =54272;SOUNDCHIP BASISADRESSE
  14. 200 ; --- NEUEN BEFEHL DEFINIEREN
  15. 300 LDA #<NEUBEF:LDY #>NEUBEF;ZEIGER AUF NEUE BEFEHLSROUTINE
  16. 310 STA IBAS:STY IBAS+1;VEKTOR VERBIEGEN
  17. 320 RTS;UND FERTIG
  18. 330 ; --- NEUEN BASICBEFEHL AUSFUEHREN
  19. 340 NEUBEF JSR CHRGET;ERSTES ZEICHEN HOLEN
  20. 350 CMP #33;WAR ES DAS AUSRUFEZEICHEN
  21. 360 BEQ CALL;JA, DANN NEUER BEFEHL
  22. 370 ORA #0;SONST FLAGS SETZEN:JMP OLDBAS;UND NORMAL WEITERMACHEN
  23. 380 ; --- AUSRUFEZEICHEN ERKANNT
  24. 390 CALL JSR CHRGET;ZEICHEN NACH '!' HOLEN
  25. 400 CMP #83;BUCHSTABE 'S' TESTEN
  26. 410 BEQ STIMMT;JA, DANN !S BEFEHL
  27. 420 JMP SYNTAX;SONST SYNTAX ERROR AUSGEBEN, FERTIG
  28. 430 ; --- !S BEFEHL - TON AUSGEBEN
  29. 440 STIMMT LDA #0:LDX #24;SID-REGISTER LOESCHEN
  30. 450 CLRSID STA SID,X:DEX;LOESCH-SCHLEIFE:BPL CLRSID;ALLE REGISTER AUF NULL
  31. 460 LDA #15:STA SID+24;LAUTSTAERKE 15
  32. 470 LDA #100:STA SID+1;TONHOEHE FESTLEGEN
  33. 480 LDA #240:STA SID+6;WELLENFORM
  34. 490 LDA #17:STA SID+4;TON EINSCHALTEN
  35. 500 LDX #0:LDY #0;WARTESCHLEIFE
  36. 510 WAIT NOP:DEX:BNE WAIT:DEY:BNE WAIT;WARTET CA. 1/2 SEKUNDE
  37. 520 LDA #16:STA SID+4;TON AUSSCHALTEN
  38. 530 JSR CHRGET:JMP INTER;BEFEHL FERTIG, WEITER WIE GEHABT
  39.